home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_271_300 / time277 / hd_frequency / hd_frequency_38051.lha / Install_HDFrequency < prev    next >
Text File  |  1993-01-07  |  4KB  |  185 lines
  1. ; $VER: HDF Install V 1.0 (13.11.93)
  2. ; Script to install HD Frequency
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7.  
  8.  
  9. (set #bad-kick
  10. (cat "Zur Installation von HD Frequency ist Kickstart 2.04 "
  11.      "erforderlich."
  12. ))
  13.  
  14. (set #introduction
  15. (cat "\n\nDieses Programm installiert HD Frequency Release 2 "
  16.      "auf Ihre Festplatte."
  17. ))
  18.  
  19. (set #ask-function
  20. (cat "Bitte wählen Sie die Programmversion aus, die "
  21.      "Sie installieren möchten :"
  22. ))
  23.  
  24. (set #ask-function-help
  25. (cat "Hier können Sie sich die Programmversion"
  26.      "installieren, die für Ihre Anwendungen am besten erscheint."    
  27.      "Nähere Informationen finden Sie in Ihrem Handbuch."
  28. ))
  29.  
  30. (set #ask-function-1
  31. (cat "68000 1 MB (Chip) Version"
  32. ))
  33.  
  34. (set #ask-function-2
  35. (cat "68000 2 MB Version"
  36. ))
  37.  
  38. (set #ask-function-3
  39. (cat "68020 2 MB Version"
  40. ))
  41. (set #ask-function-4
  42. (cat "68020 2 MB 3 Stimmen Version (l)"
  43. ))
  44.  
  45.  
  46.  
  47. (set #which-disk
  48. (cat "Wohin soll HD-Frequency installiert werden ?"
  49. ))
  50.  
  51. (set #which-disk-help
  52. (cat ""
  53. ))
  54.  
  55. ;=============================================================================
  56. ; make sure we are running under V37
  57.  
  58. (if (< (/ (getversion) 65536) 37)
  59. (
  60.     (abort #bad-kick)
  61. ))
  62.  
  63. (set old_wb
  64. (cat    "Work:"
  65. ))
  66.  
  67. (set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
  68. (set old_wb (expandpath old_wb))
  69. (user 2)
  70.  
  71.  
  72. ;=============================================================================
  73.  
  74. (message #introduction)
  75.  
  76. (set motorola 0)
  77.  
  78. (set motorola (askoptions (prompt #ask-function)
  79.               (help #ask-function-help)
  80.          (choices #ask-function-1 #ask-function-2
  81.                       #ask-function-3 #ask-function-4
  82.          )
  83.          (default 1)
  84.     )
  85. )
  86.  
  87.  
  88.  
  89. (user 0)
  90. (set old_level @user-level)
  91.  
  92. ;=============================================================================
  93.  
  94. (if (= (strlen old_wb) 0)
  95. (
  96.     (user 2)
  97.     (set target (askdir (prompt #which-disk)
  98.             (help #askdir-help)
  99.             (default "work:")
  100.             (disk)
  101.         )
  102.     )
  103.     (user old_level)
  104. )
  105. (
  106.     (if (askbool (prompt (#confirm-target old_wb))
  107.          (default 1)
  108.     )
  109.     (
  110.     (set target old_wb)
  111.     )
  112.     (
  113.     (set target (askdir (prompt #which-disk)
  114.                 (help #which-disk-help)
  115.                 (default old_wb)
  116.                 (disk)
  117.             )
  118.     )
  119.     ))
  120. ))
  121.  
  122.  
  123. (set @default-dest target)
  124. (set stash_old (tackon target "old")
  125. )
  126.  
  127.  
  128.     
  129.         (if (= 1 motorola)
  130.         (
  131.         (copyfiles (source
  132.                            (cat "HD_Frequency:HDFrequency_68000"))
  133.                (dest (tackon target "HDFrequency"))
  134.         )
  135.         (copyfiles (source
  136.                            (cat "HD_Frequency:HDFrequency_68000.info"))
  137.                (dest (tackon target "HDFrequency"))
  138.         )
  139.             ))
  140.               
  141.         (if (= 2 motorola)
  142.         (
  143.         (copyfiles (source
  144.                (cat "HD_Frequency:HDFrequency_68000e"))
  145.                (dest (tackon target "HDFrequency"))
  146.         )
  147.         (copyfiles (source
  148.                (cat "HD_Frequency:HDFrequency_68000e.info"))
  149.                (dest (tackon target "HDFrequency"))
  150.         )
  151.             ))
  152.  
  153.         (if (= 4 motorola)
  154.         (
  155.         (copyfiles (source
  156.                (cat "HD_Frequency:HDFrequency_68020"))
  157.                (dest (tackon target "HDFrequency"))
  158.         )
  159.         (copyfiles (source
  160.                (cat "HD_Frequency:HDFrequency_68020.info"))
  161.                (dest (tackon target "HDFrequency"))
  162.         )
  163.             ))
  164.  
  165.         (if (= 8 motorola)
  166.         (
  167.         (copyfiles (source
  168.                (cat "HD_Frequency:HDFrequency_68020l"))
  169.                (dest (tackon target "HDFrequency"))
  170.         )
  171.         (copyfiles (source
  172.                (cat "HD_Frequency:HDFrequency_68020l.info"))
  173.                (dest (tackon target "HDFrequency"))
  174.         )
  175.             ))
  176.  
  177. ; copy drawer icon
  178. (copyfiles (source
  179.                (cat "HD_Frequency:HDFrequency.info"))
  180.                (dest (tackon target ""))
  181.         )      
  182. (complete 100)
  183.  
  184.  
  185.